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PASS 3 ASR 33 FORMAT OVERLAY 


DECUS Program Library Write-up 


DECUS NO. 8-354 


ABSTRACT 

Pass 3 from the assembler is the primary documentation and is usually 
cut into page size for placement into notebooks. This overlay will auto¬ 
matically format the output on the ASR 33 teletype into page size blocks. 

This modification dedicates pass 3 to only type written output as 
the leader-trailer is suppressed. The control of this routine uses the 
high speed punch locations, restricting PAL to low speed punch on pass 1 
and pass 2. The main body of the routine uses 33 locations starting at 
6600. This is just below the high speed reader buffer and should be 
above the symbol tables for most programs. 







/PAL III PASS 3 FORMAT OVERLAY 
/FRANK MELCHIOR JR. 9 NOV 70 
*161 


0161 

66// 

PAGINZ, 

PAGING 


/162 

0000 

LINCT, 

*226 

/ 


0226 

3162 

*6/3 

DCA LINCT 

/INITIALIZE LINE COUNTER 

0603 

1117 


TAD CRLF 


0604 

443/ 


JMS 1 EEE 


0605 

4451 


JMS 1 LOTI 

/LEADER TRAILER 

0606 

3372 


DCA LOW 

/INITIALIZE SORT 

0607 

3373 


DCA LOW+1 


0610 

3374 


DCA LOW+2 


0611 

5214 

*614 

JMP ELOOP 


0614 

1134 

ELOOP, 

TAD PF 


0615 

771/ 


SPA CLA 

/PASS 3? 

0616 

2162 


ISZ LINCT 

/YES 

0617 

741/ 


SKP 

/NO 

0620 

4561 

*642 

JMS 1 PAGINZ 


0642 

5214 

*700 

JMP ELOOP 


0700 

5214 

*1264 

JMP ELOOP 


1264 

0000 

LOT2, 

0 


1265 

13/6 


TAD KONS 


1266 

3112 


DCA TEMP2 


1267 

1134 


TAD PF 


127/ 

754/ 


SZA SMA 

/PASS 1 OR PASS 3? 

1271 

53/1 


JMP LDI 

/NO, PASS 2 

1272 

7700 


SMA CLA 

/PASS 3? 

1273 

53/1 


JMP LDI 

/NO, PASS 1? 

1274 

1162 


TAD LINCT 


1275 

1/6/ 


TAD C2 


1276 

3162 


DCA LINCT 


1277 

4561 


JMS 1 PAGINZ 


13// 

5664 < 


JMP 1 LDTR 


13/1 

1/65 

LDI, 

TAD C200 


13/2 

4422 


JMS 1 DDD 


13/3 

2112 


ISZ TEMP2 

/FULL LEADER-TRAILER 

13/4 

53/1 


JMP LDI 

/NO 

13/5 

5664 


JMP 1 LDTR 

/YES 

13/6 

7700 

KONS, 

*1655 

-100 


1655 

7000 

POUT, 

NOP 


1656 

7000 


NOP 


1657 

7200 


CLA 


166/ 

2162 


ISZ LINCT 



v 
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1661 

5263 


JMP .+2 

1662 

4561 

*66/0 

JMS 1 PAGINZ 

6600 

0000 

PAGING, 

/ 

660 1 

7200 


CLA 

6602 

1162 


TAD LINCT 

6603 

1235 


TAD Ml/ 

6604 

3162 


DCA LINCT 

6605 

1 070 


TAD C215 

6606 

4422 


JMS1DDD 

6607 

1236 


TAD C212 

66] 0 

4422 


JMS 1 DDD 

6611 

2162 


ISZ LINCT 

6612 

5207 


JMP .-3 

6613 

1241 


TAD Mill 

6614 

3234 


DCA STCT 

6615 

1 104 


TAD M6 

6616 

3162 


DCA LINCT 

6617 

1237 


TAD C252 

66?0 

4422 


JMS1DDD 

6621 

2234 


ISZ STCT 

6622 

5217 


JMP .-3 

6623 

1/7/ 


TAD C215 

6624 

4422 


JMS 1 DDD 

6625 

1236 


TAD C212 

6626 

4422 


JMS1DDD 

6627 

2162 


ISZ LINCT 

6630 

5225 


JMP .-3 

6631 

124/ 


TAD M63 

6632 

3162 


DCA LINCT 

6633 

5600 


JMP 1 PAGING 

6634 

0000 

STCT, 

/ 

6635 

7770 

Ml/, 

-1/ 

6636 

0212 

C212, 

212 

6637 

0252 

C252, 

252 

6640 

7715 

M63, 

-63 

6641 

7667 

Mill, 

-111 


/ZERO EXCEPT LAST PAGE 
/BOTTOM MARGIN 

/CARRIAGE RETURN 


/MAKE BOTTOM MARGIN 

/PAGE DELIMITER COUNTER 

/TOP MARGIN 
/STAR 

/MAKE PAGE DELIMITER 


/MAKE TOP MARGIN 


C2=60 

C200=65 

C21 5=70 

CRLF=117 

DDD=22 

EEE=3/ 

LDTN51 

LOW-772 

M6=1^4 

PF=134 

TEMP2=112 
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CRLF 

#117 

C2 

0060 

C?0# 

0065 

C212 

6636 

C215 

0070 

C252 

6637 

DDD 

#022 

EEE 

003# 

ELOOP 

#614 

KONS 

13#6 

LDI 

1301 

LDTI 

#051 

LOT? 

1264 

LINCT 

#162 

LOW 

#772 

mi# 

6635 

Mill 

6641 

M6 

#1#4 

M63 

664# 

PAGING 

66## 

PAGINZ 

#161 

PF 

#134 

POUT 

1655 

STCT 

6634 

TEMP2 

#112 


\ 
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